10 :REM *** R. PRACHUN (1983) ***
12 :REM *** P.O.BOX 1447      ***
14 :REM *** PORT PERRY, ONT.  ***
16 :REM *** L0B 1N0           ***
18 :
22 DATA 169 , 1 , 162 , 4 , 160
24 DATA 255 , 32 , 186 , 255 , 32
26 DATA 192 , 255 , 162 , 1 , 32
28 DATA 201 , 255 , 133 , 2 , 32
30 DATA 231 , 255 , 96 , 0 , 0
31 :
32 POKE 808,225:REM DISABLE STOP/RESTORE KEYS
33 :
34 YY=28:GOSUB10000:DQ=0
36 DL$(1)="                                     "
38 DL$(2)="                                     "
40 DL$(3)="                                     "
42 DL$(4)="                                     "
44 F$="":WS$=""
46 NA$="         [212]HE [195]HOCOLATE [199]OO [198]IGHT "
48 MO$(0)="    ":MO$(1)=""
50 E$="                                                      "
52 X1$="":X2$=""
54 X3$="":X4$=""
56 X5$=""
58 D5$=" [215]HAT IS YOUR CHOICE (1-4)? [146]"
60 Y1$=""
62 Y2$=""
64 Y3$=""
66 Y4$=""
68 PRINTCHR$(142):PRINT""
70 GOSUB5220
72 PRINT"[147]"CHR$(14):GOSUB5000
74 GOTO122
76 DIM P1$(3,120):I=0
78 C1=0:C2=0:W=0:R=0:PR=0
80 :
82 FORK=1TO3:I=0:POKE53280,K+4:POKE53281,K+5
84 I=I+1:READ P1$(K,I):IFP1$(K,I)="***"THEN88
86 N1(K)=N1(K)+1:GOTO84
88 NEXT K
90 :
92 FORK=1TO3:POKE53280,K+4:POKE53281,K+5
94 FORJ=1TO8:READQ1$(K,J),Q2$(K,J)
96 READ D1$(K,J),D2$(K,J),D3$(K,J),D4$(K,J),CO(K,J)
98 CV=CV+1:IFCV=2THENYY=158:CV=0
100 IFCV=1THENYY=28
102 GOSUB5350:NEXTJ:PRINT""
104 L(K,1)=INT(8*RND(1)+1)
106 FOR J=2TO5
108 L(K,J)=INT(8*RND(1)+1)
110 FORL=1TOJ-1
112 IFL(K,J)=L(K,L)THENL=J-1:GOTO108
114 NEXTL,J
116 NEXTK
118 RETURN
120 :
122 GOSUB194:F=1:GOSUB5670
124 GOSUB 248
126 IFVQ=2THENVQ=0:GOTO122
128 :
130 F=2
132 PRINT"[147]";NA$:PRINT"                 [208]ART 2":PRINT""
134 GOSUB 356:GOSUB194
136 GOSUB5670
138 GOSUB248
140 IFVQ=2THENVQ=0:GOTO130
142 F=3:PRINT"[147]";NA$:PRINT"                 [208]ART 3":PRINT""
144 GOSUB356:GOSUB194:GOSUB5670
146 GOSUB248
148 IFVQ=2THENVQ=0:GOTO142
150 PRINT"[147]        [211]UMMARY [210]EPORT ":TQ=R+W
152 PRINT"       [211]TUDENT: ";SN$
154 ZZ=W+R:PR=INT((R/ZZ)*100)
156 PRINT"       [212]OTAL [206]UMBER OF [209]UESTIONS:";TQ
158 PRINT"       [193]NSWERS CORRECT (1ST TRY):";C1
160 PRINT"       [193]NSWERS CORRECT (2ND TRY):";C2
162 PRINT"       [212]OTAL [201]NCORRECT [209]UESTIONS:";W
164 PRINT"       [212]OTAL [209]UESTIONS [195]ORRECT  :";R
166 PRINT"       =============================="
168 PRINT"       [208]ERCENTAGE [195]ORRECT       :";PR;" %"
170 GOSUB6570:IFDQ=2THENDQ=0:GOTO170
172 PRINT"[147]     [196]O YOU WISH TO SEE THE STORY"
174 PRINT"       IN PARAGRAPH FORM (Y/N)?"
176 GETZ$:IFZ$=""THEN176
178 IFZ$="Y"THEN182
180 GOSUB6410:GOTO 8000
182 FORK=1TO3
184 PRINT"[147]";NA$;"":FORI=1TON1(K)
186 PRINT MO$(NX);P1$(K,I)" ";
188 NX=NX+1:IFNX=2THENPRINT:NX=0
190 IFP1$(K,I)=" "THENGOSUB6200
192 NEXTI:NX=0:NEXTK:GOSUB6410:GOTO6240
194 IFQH=1THENRETURN
196 PRINT"[147]";NA$
198 PRINT"[144]        [195]HOOSE THE STORY SPEED."
200 PRINT"               1.[146] [198]AST"
202 PRINT"               2.[146] [205]EDIUM"
204 PRINT"               3.[146] [211]LOW"
206 PRINT"[144]        [217]OUR CHOICE (1,2,3)?"
208 GETZ$:IFZ$=""THEN208
210 GOSUB5560:CH=VAL(Z$):IFCH<1ORCH>3THEN194
212 IFCH=1THENS=20
214 IFCH=2THENS=50
216 IFCH=3THENS=75
218 GOSUB 220:GOSUB236:RETURN
220 PRINT"[147]    [212]O CHANGE THE STORY SPEED, PRESS"
222 PRINT"      AND [200][207][204][196] THE FOLLOWING KEYS;"
224 PRINT"         [212]HE [144] [198]1 [146] KEY = [198][193][211][212][197][210]"
226 PRINT"         [212]HE [144] [198]7 [146] KEY = [211][204][207][215][197][210]"
228 PRINT"     [208]RESS THE [210][197][212][213][210][206] KEY TO START."
230 GETZ1$:IFZ1$=""THEN230
232 IFZ1$<>CHR$(13)THEN230
234 GOSUB5560:RETURN
236 PRINT"[147]":X=1305:Y=1465:XC=55576:YC=55736
238 PRINT""
240 PRINT"       [198]1 [146] = [198]ASTER   [198]7 [146] = [211]LOWER"
242 FORDY=1TO500:NEXTDY
244 FOR J=1TO 39
246 POKEX,42:POKEXC,7:POKEYC,7:XC=XC+1:YC=YC+1:POKEY,42:X=X+1:Y=Y+1:NEXTJ:RETURN
248 POKE53280,6:POKE53281,12:PRINT"[147]";NA$:PRINT:POKE198,0
250 PRINT"   ";SN$;", WOULD YOU LIKE TO"
252 PRINT"   READ THIS PART OF THE STORY AGAIN  "
254 PRINT"   BEFORE ANSWERING THE QUESTIONS  "
256 PRINT"   THAT FOLLOW (Y/N)?"
258 GETZ$:IFZ$=""THEN258
260 GOSUB5560
262 IFZ$="Y"ANDF=1THEN122
264 IFZ$="Y"ANDF=2THEN124
266 IFZ$="Y"ANDF=3THEN142
268 IFZ$<>"N"THEN248
270 PRINT"[147]"NA$
272 PRINT"  [208]LEASE ANSWER THE FOLLOWING QUESTIONS"
274 PRINT"  BY TYPING IN THE NUMBER THAT MATCHES"
276 PRINT"  THE CORRECT ANSWER."
278 GOSUB 356:TM=0
280 FOR J=1TO5
282 PRINT"[147]             [209][213][197][211][212][201][207][206] #[146] ";J
284 PRINT"[158] **************************************"
286 PRINT" ";Q1$(F,L(F,J)):PRINT" ";Q2$(F,L(F,J))
288 PRINT"[158] **************************************"
290 GOSUB382
292 GETZ$:IFZ$=""THEN292
294 QC=VAL(Z$):IFQC<1ORQC>4THEN292
296 GOSUB370
298 FORV=1TO4
300 IFV=QCTHEN304
302 PRINTDL$(V)
304 NEXTV
306 IFQC=CO(F,L(F,J))THEN348
308 PRINTY1$;"       [211]ORRY, THAT IS INCORRECT."
310 PRINTY2$;"               [212]RY AGAIN!"
312 GOSUB382
314 GETZ1$:IFZ1$=""THEN314
316 QS=VAL(Z1$):IFQS<1ORQS>4THEN314
318 IFQS=CO(F,L(F,J))THEN336
320 FORV=1TO4
322 IFV=CO(F,L(F,J))THEN326
324 PRINTDL$(V)
326 NEXTV
328 PRINTY3$;"       [206]O, THE ANSWER IS NUMBER ";CO(F,L(F,J)):W=W+1
330 TM=TM+1:IFTM=3THENJ=5:GOSUB6300:W=W-1:RETURN
332 :
334 GOSUB 356:GOTO354
336 FORV=1TO4
338 IFV=QSTHEN342
340 PRINTDL$(V)
342 NEXTV:GOSUB370
344 PRINTY3$;"       [206]OW YOU HAVE IT! [199]OOD WORK!":C2=C2+1
346 GOSUB364:R=R+1:GOSUB356:GOTO354
348 GOSUB402:PRINTY2$;CG$:R=R+1:C1=C1+1
350 GOSUB364
352 GOSUB356
354 NEXTJ:RETURN
356 PRINT:PRINT"   [208]RESS THE [146] [210][197][212][213][210][206] KEY  TO CONTINUE "
358 GETQ$:IFQ$=""THEN358
360 IFQ$<>CHR$(13)THEN358
362 GOSUB5560:RETURN
364 FORSX=1TO10:POKE53280,SX:POKE53281,SX+1:FORDY=1TO25:NEXTDY:NEXTSX
366 POKE53280,6:POKE53281,12
368 RETURN
370 PRINTY1$"                                       "
372 PRINTY2$"                                       "
374 PRINTY3$"                                       "
376 PRINTY4$"                                       "
378 PRINTX5$"                                       "
380 RETURN
382 REM
384 PRINTX1$;" 1.[146] ";D1$(F,L(F,J))
386 PRINTX2$;" 2.[146] ";D2$(F,L(F,J))
388 PRINTX3$;" 3.[146] ";D3$(F,L(F,J))
390 PRINTX4$;" 4.[146] ";D4$(F,L(F,J))
392 PRINTX5$;"     ";D5$
394 RETURN
396 :
398 REM **** DATA FOR STORY ****
400 :
402 WS=INT(RND(1)*5+1)
404 ONWSGOSUB408,410,412,414,416
406 RETURN
408 CG$="           [195][160][207][160][210][160][210][160][197][160][195][160][212] ! ":RETURN
410 CG$="         [198][160][193][160][206][160][212][160][193][160][211][160][212][160][201][160][195] ! ":RETURN
412 CG$="         [211][160][213][160][208][160][197][160][210]   [215][160][207][160][210][160][203]! ":RETURN
414 CG$="         [201][160][206][160][195][160][210] [197][160][196][160][201] [194][160][204][160][197] ! ":RETURN
416 CG$="         [211] [212][160][213][160][208][160][197][160][206][160][196][160][207][160][213] [211] ! ":RETURN
2000 DATA"  [193]FTER WINNING","A FIGHT,","ONE SHOULD FEEL","SATISFACTION."
2005 DATA"[215]HY THEN","WAS [201] EXPERIENCING","A HORRIBLE","DEPRESSION?"
2010 DATA"[195]OULD IT BE","THAT MY VICTORY","WAS ALL","TOO EASY?"," "
2015 DATA"  [208]ARK OPENING DAY","USUALLY SENT","MY SPIRITS SOARING."
2020 DATA"[201] COULDN'T","UNDERSTAND","MY MOTHER'S DISLIKE","FOR THE DAY,"
2025 DATA "BUT [201] SUSPECTED","IT HAD SOMETHING","TO DO","WITH MY"
2030 DATA"UNCONTROLLABLE SPIRIT.","[205]Y ANTICIPATION"
2035 DATA"OF THE DAY","WAS DRIVING","MY MOTHER","TO THE BRINK","OF INSANITY."
2040 DATA"[201]N DESPERATION,","SHE FINALLY","GAVE ME","THE BOOT","AT ABOUT TEN"
2045 DATA"THAT MORNING."," ","  [205]Y CURIOSITY","WAS OVERPOWERING!"
2050 DATA"[201] CALLED ON","[203]ELLY AND [210]AY,","WHOM IT APPEARED,","HAD SUFFERED"
2055 DATA"SIMILAR FATES.","[215]E DECIDED","TO VISIT","THE PARK","IMMEDIATELY."
2060 DATA"[197]VEN THOUGH","THE OFFICIAL OPENING","WAS NOT","SCHEDULED UNTIL"
2065 DATA"LATE AFTERNOON,","WE WERE CONFIDENT","THAT WE COULD","GET OURSELVES"
2070 DATA"INTO TROUBLE","WELL BEFORE THEN!"," "
2075 DATA"  [215]E WERE","SO SUCCESSFUL","AT BEING","A NUISANCE,","THAT THE PARK"
2080 DATA"SOCIAL DIRECTOR","THREATENED","TO KILL","EACH OF US","PERSONALLY."
2081 DATA" "
2085 DATA"  [202]UST AS [201]","WAS FEELING","PARTICULARLY SMUG","ABOUT STEALING"
2090 DATA"SOME OF","[205]RS. [207]BERMAN'S","CHOCOLATE CAKE,","WHO","SHOULD [201]"
2095 DATA"BUMP INTO,","BUT [210]OGER!","[207]R","AS HE WAS","LESS AFFECTIONATELY"
2100 DATA"CALLED,","THE [202]OLLY [210]OGER!"," ","***"
2105 DATA"  [205]EETING [210]OGER","AT THE BEST","OF TIMES","WAS UNNERVING."
2110 DATA"[205]EETING HIM","WITH CHOCOLATE CAKE","IN YOUR HANDS"
2112 DATA"GUARANTEED"
2115 DATA"A DISASTER !"," ","  [210]OGER","HAD TWO AIMS","IN LIFE."
2120 DATA"[200]IS PRIMARY AIM","WAS TO EAT!","[212]HE OTHER","WAS TO BULLY."
2125 DATA"[194]EFORE [201] COULD","TURN TO RUN,","[210]OGER SNAPPED","THE CAKE"
2130 DATA"WITH ONE HAND","AND PUSHED","ME SPRAWLING","BACKWARDS"
2135 DATA"WITH HIS OTHER."," ","  [213]NDER NORMAL","CIRCUMSTANCES,"
2140 DATA"THIS WOULD","HAVE BEEN","THE END","OF OUR ENCOUNTER."
2145 DATA"[200]OWEVER,","[202]OLLY [210]OGER,","HAD MADE","A SERIOUS MISTAKE!"
2150 DATA"[215]HEN HE'D","PUSHED ME,","HIS HAND","TORE AWAY","ONE OF MY"
2155 DATA"SHIRT BUTTONS.","[206]O BIG DEAL,","RIGHT?"," ","         [215][210][207][206][199]!!![146]"," "
2160 DATA"  [201] COULD","COME HOME","WITH MY ARM","IN A SLING;","MY HEAD"
2165 DATA"IN MY LAP;","OR MY TEETH","IN A JAR;","BUT HEAVEN","HELP ME"
2170 DATA"IF [201] EVER","CAME HOME","WITH TORN BUTTONS."," "
2175 DATA"  [203]ELLY'S FACE","WAS FROZEN","IN FRIGHT.","[210]AY STUMBLED","BACKWARD,"
2180 DATA"TRIPPED,","AND PLOPPED","EMBARRASSINGLY","ONTO HIS REAR."
2185 DATA"[201]N MY","MIND'S EYE,","[201] COULD SEE","MY MOTHER'S"
2190 DATA"SCOWLING FACE","STARING DOWN","AT ME."
2195 DATA"[205]Y MOTHER WOULD","PULVARIZE ME!","[212]HIS WAS","TOO FAR![146]"," ","***"
2200 DATA"  [205]Y FACE","MUST HAVE","BETRAYED MY RAGE.","[210]OGER'S MOUTH"
2205 DATA"DROPPED OPEN,","SPEWING FORTH","CHOCOLATE GOO!","[204]IKE A CRAZED"
2210 DATA"BULL,","[201] CHARGED","FOR [202]OLLY [210]OGER'S"
2215 DATA"BULGING STOMACH."," ","[212]HE IMPACT","WAS HORRENDOUS!","[195]HOCOLATE CAKE"
2220 DATA"EXPLODED","FROM HIS MOUTH!","[210]OGER'S EYES","WERE WIDE","WITH TERROR"
2222 DATA"AS WE CRASHED INTO"
2225 DATA"THE [195]OKE CRATES","STACKED BEHIND","THE CLUBHOUSE."
2230 DATA" ","  [194]Y NOW,","[203]ELLY AND [210]AY","WERE DOUBLED","ON THE GROUND"
2235 DATA"IN HYSTERICS.","[212]HE NOISE","BROUGHT OUT","A SMALL CROWD"
2240 DATA"OF WIDE EYED","ONLOOKERS."," ","  [210]OGER'S LEGS","THRASHED THE AIR"
2245 DATA"IN A FRENZY !","[197]VEN THROUGH","THE CHOCALATE GOO","ON HIS FACE,"
2250 DATA"[201] COULD SEE","THE DESPERATION","IN HIS","STARING EYES."
2255 DATA" ","  [193]S THE","[195]OKE CRATES","CRASHED","ALL AROUND","MY EARS,"
2260 DATA"[201] WAS SURE","[201]'D MET","MY DOOM.","[204]IFE FLASHED","BEFORE ME!"," "
2265 DATA"  [211]UDDENLY,","ERUPTING","LIKE A VOLCANO,","[210]OGER FLEW"
2270 DATA"TO HIS FEET","AND FLED."
2275 DATA"[200]E EVEN LEFT","THE CHOCOLATE CAKE","BEHIND!"
2280 DATA" ","  [193]S [201] SAT","BEWILDERED,","AMONG","THE [195]OKE CRATES"
2285 DATA"AND CHOCOLATE GOO,","THE REALIZATION","THAT [201]","HAD JUST DEFEATED"
2290 DATA"THE TERROR","OF THE NEIGHBORHOOD,","BEGAN TO","DAWN ON ME."
2295 DATA"[193]LONG WITH","THIS REALIZATION","CAME SUDDEN","DEPRESSION."," "
2300 DATA"  [193]LL THOSE YEARS","OF FEARING","THE [202]OLLY [210]OGER,","ONLY TO FIND OUT"
2305 DATA"THAT HE","WAS MADE","OF CHOCOLATE CAKE!"," ","***"
2310 DATA"[215]HAT SPECIAL EVENT WAS TAKING","PLACE ON THIS PARTICULAR DAY?"
2315 DATA"A TOWN PARADE","A CLASS PICNIC","A PARK OPENING","A COUNTRY FAIR",3
2320 DATA"[212]HE AUTHOR'S MOTHER DISLIKED PARK","OPENINGS BECAUSE..."
2325 DATA"THE AUTHOR WAS OVEREXCITED","SHE DISLIKED SOCIAL EVENTS"
2330 DATA"SHE WAS TOO BUSY","THE AUTHOR GOT IN TROUBLE",1
2335 DATA"[212]HE WORD 'ANTICIPATION' MEANS:"," ","WORRY","EXPECTANT"
2340 DATA"TROUBLESOME","UPSETTING",2
2345 DATA"[212]HE TERM 'GAVE ME THE BOOT' MEANS:"," ","HANDED HIM HIS SHOES"
2350 DATA"HE WAS BEATEN","HELPED HIM DRESS","[200]E WAS TOLD TO LEAVE",4
2355 DATA"[215]HY DID THE BOYS DECIDE TO VISIT","THE PARK EARLY?"
2360 DATA"[212]HEY WERE BORED","THEY COULD STIR UP TROUBLE"
2365 DATA"FREE CAKE WAS TO BE HAD","THEIR MOTHERS ORDERED THEM",2
2370 DATA"[212]HE OFFICIAL OPENING WAS SCHEDULED","FOR ..."
2375 DATA"EARLY MORNING","EARLY AFTERNOON","LATE AFTERNOON","LATE MORNING",3
2380 DATA"[215]HO THREATENED TO KILL THE BOYS","WHEN THEY WERE IN THE PARK?"
2385 DATA"[205]RS.[207]BERMAN","THE PARK SECRETARY","[202]OLLY [210]OGER","THE SOCIAL DIRECTOR"
2390 DATA 4,"[215]HICH CAME FIRST:"," "
2395 DATA"[212]HE AUTHOR GOT THE BOOT","[212]HE AUTHOR MET HIS FRIENDS"
2396 DATA"[212]HE AUTHOR STOLE SOME CAKE"
2400 DATA"[212]HE BOYS WERE THREATENED",1
2405 DATA"[212]HE WORD 'BRINK' MEANS:","  "
2410 DATA"FAR AWAY","ON THE EDGE","THE DAY BEFORE","UNDER STRESS",2
2415 DATA"[215]HY WAS THE AUTHOR FEELING SMUG","JUST AFTER BEING THREATENED?"
2420 DATA"HE MET UP WITH [210]OGER","HE HAD BECOME A NUISANCE"
2425 DATA"HE'D JUST STOLEN SOME CAKE","THE OPENING WOULD BE SOON",3
2430 DATA"[215]HY WAS IT DISASTROUS TO MEET","[210]OGER WHILE HOLDING CHOCOLATE CAKE?"
2435 DATA"[210]OGER HATED CHOCOLATE CAKE","[210]OGER LOVED CAKE"
2440 DATA"[210]OGER LIKED CHOCOLATE","[210]OGER WAS NEVER HUNGRY",2
2445 DATA"[215]HAT DOES THE TERM,'IN MY MIND'S","EYE' MEAN?"
2450 DATA"EASILY SEEN","DREAMING","IMAGINING","UNCLEAR",3
2455 DATA"[215]HICH EVENT HAPPENED FIRST?"," ","[210]AY STUMBLED BACKWARDS"
2460 DATA"THE AUTHOR SAW HIS MOTHER'S FACE","[203]ELLY FROZE IN FRIGHT"
2465 DATA"[210]OGER PUSHED THE AUTHOR",4
2470 DATA"[210]OGER'S TWO AIMS IN LIFE WERE..."," "
2475 DATA"TO SLEEP AND EAT","TO BULLY AND SLEEP","TO EAT AND FIGHT"
2480 DATA"TO BULLY AND EAT",4
2485 DATA"[210]AY STUMBLED BACKWARD AND ..."," ","FELL INTO A PUDDLE"
2490 DATA"LANDED ON HIS REAR","LAUGHED OUT LOUD","STARTED TO RUN",2
2495 DATA"[203]ELLY'S FACE WAS FROZEN WITH","FRIGHT BECAUSE..."
2500 DATA"HE WAS AFRAID OF [210]OGER","IT WAS EXTREMELY COLD OUT"
2505 DATA"HE WAS AFRAID OF BEING HURT","HE WAS AFRAID OF THE PARK DIRECTOR",1
2510 DATA"[215]HY DIDN'T THE AUTHOR RUN AWAY","FROM [210]OGER?"
2515 DATA"[210]OGER WAS TOO FAST","THE AUTHOR WANTED THE CAKE","[210]OGER HELD HIM"
2520 DATA"HE WAS AFRAID TO RUN",1
2525 DATA"[215]HY WAS THIS ENCOUNTER WITH [210]OGER","NOT A NORMAL ONE?"
2530 DATA"[210]OGER WAS VERY HUNGRY","THE AUTHOR FELL BACKWARDS"
2535 DATA"[210]OGER TORE OFF A BUTTON","IT WAS [208]ARK [207]PENING [196]AY",3
2540 DATA"[215]HAT DOES THE WORD 'PULVERIZE' MEAN:","  "
2545 DATA"TO BEAT SEVERELY","TO SCOLD","TO DISAPPROVE","TO SPANK",1
2550 DATA"[215]HO WAS [202]OLLY [210]OGER?"," ","A LOCAL DELIVERY BOY","A PIRATE"
2555 DATA"A PARK DIRECTOR","A NEIGHBOURHOOD BULLY",4
2560 DATA"[215]HICH EVENT HAPPENED LAST?","  "
2565 DATA"[210]OGER'S MOUTH DROPPED OPEN","THEY CRASHED INTO [195]OKE CRATES"
2570 DATA"CAKE EXPLODED FROM [210]OGER'S MOUTH","HE CHARGED [210]OGER'S STOMACH",2
2575 DATA"[215]HAT DOES THE PHRASE 'BETRAYED","MY RAGE' MEAN?"
2580 DATA"HIDE ONE'S FEELINGS","LIE ABOUT ONE'S FEELINGS"
2585 DATA"BE VERY ANGRY","SHOW ONE'S TRUE FEELINGS",4
2590 DATA"[215]HY WAS THE AUTHOR DEPRESSED AFTER","THE FIGHT?"
2595 DATA"HE HAD BEEN HURT","[210]OGER RUINED THE CAKE"
2600 DATA"HE WAS AFRAID OF [210]OGER FOR NOTHING","HE DIDN'T LIKE WINNING",3
2605 DATA"[215]HAT DOES THE AUTHOR MEAN WHEN","HE SAYS [210]OGER WAS MADE OF CAKE?"
2610 DATA"[210]OGER LOVED CAKE","[210]OGER WAS A COWARD","CAKE MADE [210]OGER FIGHT"
2615 DATA"CAKE MADE [210]OGER GREEDY",2
2620 DATA"[215]HY WAS THE AUTHOR UPSET AT THE ","LOSS OF A BUTTON FROM HIS SHIRT?"
2625 DATA"[201]T WAS A NEW SHIRT","HE LIKED BEING NEAT AND TIDY"
2630 DATA"BUTTONS WERE HARD TO REPAIR","HIS MOTHER WOULD BE VERY UPSET",4
2635 DATA"[215]HAT DOES THE WORD 'DESPERATION'","MEAN?"
2640 DATA"QUICKLY","IN PAIN","HOPELESS PANIC","FEAR",3
2645 DATA"[215]HY WERE [203]ELLY AND [210]AY DOUBLED","OVER IN HYSTERICS?"
2650 DATA"THEY WERE NO LONGER AFRAID","[210]OGER WAS BEING BEATEN"
2655 DATA"[210]OGER WAS GETTING HIS DUES ","ALL OF THESE",4
2660 DATA"[215]HAT DOES THE TERM,'LIFE FLASHED","BEFORE ME', MEAN?"
2665 DATA"LIFE IS VERY SHORT","THE AUTHOR WAS AFRAID","THE AUTHOR WAS DYING"
2670 DATA"THE AUTHOR WAS DREAMING",2
2675 DATA"[215]HY DID THE AUTHOR BEAT [210]OGER?"," ","[210]OGER WAS WEAK"
2680 DATA"THE AUTHOR WAS VERY STRONG","[210]OGER WAS SURPRISED"
2685 DATA"[210]OGER WAS NOT FEELING WELL",3
2690 DATA"[215]HY DID A CROWD GATHER AROUND","THE FIGHT?"
2695 DATA"THE FIGHT WAS VERY NOISY","EVERYONE HAD NOTHING BETTER TO DO"
2700 DATA"THE CROWD LOVED FIGHTS","THE FIGHT WAS VERY HUMOROUS",1
4997 :
4998 REM **** END OF STORY DATA ****
4999 :
5000 POKE53280,5:POKE53281,12:GOSUB6870
5007 PRINT"[147]";NA$
5010 PRINT"       [200]ELLO, ";SN$;"."
5020 PRINT"        [208]LEASE READ THE STORY AND"
5030 PRINT"       ANSWER THE QUESTIONS THAT"
5040 PRINT"       FOLLOW."
5050 PRINT"     [217]OU MAY HAVE THE STORY PRINTED"
5060 PRINT"       OUT IN TWO DIFFERENT WAYS."
5070 PRINT"       1) [193]  PARAGRAPH [146] AT A TIME."
5080 PRINT"       2) [193]  PHRASE [146] AT A TIME."
5090 PRINT"       [201]N OPTION NUMBER TWO YOU "
5100 PRINT"     WILL BE ABLE TO CONTROL THE "
5110 PRINT"     SPEED OF THE PHRASES AS THEY"
5120 PRINT"     FLASH ON THE SCREEN."
5130 PRINT"  [215]HICH [207][208][212][201][207][206] WOULD YOU LIKE (1 OR 2)?"
5140 GETX$:IFX$=""THEN5140
5150 QH=VAL(X$):IFQH<1ORQH>2THEN5140
5160 RETURN
5170 GETZ$:IFZ$=""THEN5170
5180 IFZ$<>CHR$(13)THEN5170
5190 GOSUB5560
5210 RETURN
5220 PRINT"[147]":POKE53280,6:POKE53281,12
5230 GOSUB5340:GOTO5240
5240 AS=2006:AD=-39
5250 PRINTWS$;"           ONE MOMENT, PLEASE! "
5260 GOSUB76:RETURN
5270 FORD=1TO100:NEXTD:RETURN
5280 RETURN
5290 RETURN
5300 RETURN
5310 :
5320 REM *** GRAPHIC OPENING ***
5330 :
5340 POKE53281,12:POKE53280,7
5350 PRINT"           R. PRACHUN (1983) "
5352 :
5353 REM *** OPENING GRAPHIC START ***
5354 :
5360 PRINT:PRINT
5370 PRINT"[144]              [164][164][164][164][164][164][164][164][164][164][164]
5380 [153]"             TOFN         THENTO
5390 PRINT"            [206] [165]   THE [144]  [167] [205]
5400 [153]"           THEN (null)FN         THEN(null) FN
5410 PRINT"           [167] [165][205]CHOCOLATE[144][206][167] [165]
5420 [153]"            (null)TAB(TAB((null)       (null)TAB(TAB((null)
5430 PRINT"             [163][163][163][205] GOO[144] [206][163][163][163]
5440 [153]"                 (null)TOTOTO(null)
5450 PRINT"                  [165] [167] "
5460 PRINT"                 [206][163][163][163][205]
5470 [153]"                 TAB((null)USR(null)TAB(
5480 PRINT"                  [165] [167]
5490 [153]"                (null)TAB(TAB(TAB(TAB(TAB((null)
5500 PRINT"               [206] FIGHT[144] [205]
5510 [153]"              THENTAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(FN
5520 PRINT"             [167][163][163][163][163][163][163][163][163][163][163][163][165]
5530 [153]"              TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(
5540 PRINT"
5550 [142]
5555 [143] *** END OF OPENING GRAPHIC ***
5560 SM[178]54272:[129]L[178]0[164]24:[151]SM[170]L,0:[130]
5570 [151]SM[170]1,45 :[151]SM[170]5,10
5580 [151]SM[170]15,30:[151]SM[170]24,6:[151]SM[170]4,21
5590 [129]TT[178]1[164]150:[130]
5600 [151]SM[170]4,20:[151]SM[170]24,0
5610 [142]
5640 :
5650 [143] *** PRINTOUT ROUTINE ***
5660 :
5670 [139]QH[178]1[167]6050
5680 [151]53280,0:[151]53281,11
5690 [129]I[178]1[164]N1(F)
5700 SH[178][194](203):[139]SH[178]4[167]S[178]S[171]5
5710 [139]SH[178]3[167]S[178]S[170]5
5720 [139]S[179]10[167]S[178]10
5730 [139]S[177]60[167]S[178]60
5740 SH[178]64
5750 [153]"              (null)(null)VALVALSTR$ WAIT =";S
5760 [153]E$:[153]F$;
5770 [153]"          ";(P1$(F,I))
5780 [129] J[178]1[164]S[172]10:[130]J
5790 [130] I:[142]
5800 :
6040 :
6050 [153]"LOAD";NA$;"":[129]I[178]1[164]N1(F)
6060 [153] MO$(NX);P1$(F,I)" ";
6070 NX[178]NX[170]1:[139]NX[178]2[167][153]:NX[178]0
6080 [139]P1$(F,I)[178]" "[167][141]6200
6090 [130]I:NX[178]0:[142]
6100 [144]:[153]"LOAD";NA$;"":[129]I[178]1[164]N2
6110 [153] P1$(F,I);" ";
6120 NX[178]NX[170]1:[139]NX[178]2[167][153]:NX[178]0
6130 [139]P1$(F,I)[178]" "[167][141]6200
6140 [130]I:NX[178]0:[142]
6150 [153]"LOAD";NA$;"":[129]I[178]1[164]N3
6160 [153] P1$(F,I);" ";
6170 NX[178]NX[170]1:[139]NX[178]2[167][153]:NX[178]0
6180 [139]P3$(F,I)[178]" "[167][141]6200
6190 [130]I:NX[178]0:[142]
6200 [153]"   (null)RESS THE WAIT (null)ETURN (null)EY  TO LENONTINUE "
6210 [161]Z$:[139]Z$[178]""[167]6210
6220 [139]Z$[179][177][199](13)[167]6210
6230 [153]"LOAD";NA$;"":NX[178]0:[142]
6235 :
6300 [143]
6310 [153]"LOAD      (null)OU APPEAR TO BE HAVING SOME "
6320 [153]"      TROUBLE WITH THESE QUESTIONS."
6330 [153]"       (null)RY READING THIS PART OF THE"
6340 [153]"      STORY AGAIN. RIGHT$ WILL GIVE YOU "
6350 [153]"      ANOTHER SET OF QUESTIONS WHEN"
6360 [153]"      YOU HAVE FINISHED."
6370 [153]"   (null)RESS THE WAIT (null)VAL(null)(null)(null)(null)  KEY TO CONTINUE "
6380 [161]X$:[139]X$[178]""[167]6380
6390 [139]X$[179][177][199](13)[167]6380
6400 TM[178]0:VQ[178]2:[142]
6410 [153]"LOAD     STR$O YOU WISH TO HAVE THE STORY"
6420 [153]"     PRINTED OUT TO A PRINTER (Y/N)?"
6430 [161]Z$:[139]Z$[178]""[167]6430
6440 [139]Z$[178]"Y"[167][141]10500:[137]6470
6450 [139]Z$[179][177]"N"[167]6430
6460 [142]
6470 [139]DQ[178]2[167]DQ[178]0:[141]9700:[137]6410
6475 [153]"LOAD    RIGHT$NSERT PAPER AND (null)URN ON (null)RINTER! ":[141]356
6480 [159]4,4
6490 [129]K[178]1[164]3
6500 [152]4,"";NA$
6510 [129] I[178]1[164] N1(K)
6520 [152]4,"";MO$(NX);P1$(K,I)" ";
6530 NX[178]NX[170]1:[139]NX[178]4[167][152]4:NX[178]0
6540 [139]P1$(K,I)[178]" "[167][152]4:NX[178]0
6550 [130]I:NX[178]0:[130]K:[160]4
6560 [142]
6570 [153]"   (null)OULD YOU LIKE THE (null)EPORT TO BE"
6580 [153]"   PRINTED ON A PRINTER (Y/N)?"
6590 [161]X$:[139]X$[178]""[167]6590
6600 [139]X$[178]"Y"[167]6630
6610 [139]X$[179][177]"N"[167]6590
6620 [142]
6630 [141]6850:[139]DQ[178]2[167][141]9700:[142]
6635 [153]"   (null)RINTING OUT (null)EPORT FOR WAIT ";SN$
6640 TQ[178]W[170]R
6650 [159]4,4
6660 [152]4,"";NA$
6670 [152]4
6680 [152]4,"   ==================================="
6690 [152]4,"        (null)TUDENT: ";SN$
6700 [152]4,"   ==================================="
6710 [152]4,"   (null)TORY (null)EPORT"
6720 [152]4,"   ------------"
6730 [152]4,"   (null)OTAL (null)UMBER OF (null)UESTIONS: ";TQ
6740 [152]4
6750 [152]4,"   ATNNSWERS LENORRECT (1ST TRY): ";C1
6760 [152]4
6770 [152]4,"   ATNNSWERS LENORRECT (2ND TRY): ";C2
6780 [152]4
6790 [152]4,"   (null)OTAL RIGHT$NCORRECT (null)UESTIONS: ";W
6800 [152]4
6810 [152]4,"   (null)OTAL (null)UESTIONS LENORRECT  : ";R
6820 [152]4,"   ----------------------------------"
6830 [152]4,"   (null)ERCENTAGE LENORRECT       : ";PR;" %"
6840 [160]4:[141]356:[142]
6850 [158](828):[139][194](2)[178]5[167]DQ[178]2:[142]
6858 [153]"LOAD  RIGHT$NSERT PAPER AND TURN ON THE PRINTER "
6860 [141]356:[153]"LOAD":[142]
6862 :
6870 [153][199](142):[153]"LOAD"
6880 VB$[178]"":IU[178]14:JQ[178]0
6900 [153]"        PLEASE TYPE IN YOUR FIRST "
6910 [153]"        NAME:>WAIT ":[153]
6920 ZZ$[178]"":[151]204,1:[153]VB$
6930 [161]ZA$:[139]ZA$[178]""[167]6930
6940 [139][198](ZA$)[178]13[167]SN$[178]ZZ$:[137]7000
6950 [139][198](ZA$)[178]20[167][137]6980
6955 [139][198](ZA$)[179]65[176][198](ZA$)[177]90[167]6930
6957 JQ[178]JQ[170]1:[139]JQ[178]16[167]ZZ$[178]"":[137]6870
6960 ZZ$[178]ZZ$[170]ZA$:IU[178]IU[170]1
6970 [153]"";[163]IU);ZA$;:[137]6930
6980 [139]IU[178]14[167][137]6930
6990 JQ[178]JQ[171]1:ZZ$[178][200](ZZ$,[195](ZZ$)[171]1):IU[178]IU[171]1:[137]6970
7000 [139]SN$[178]""[167]6870
7010 FL[178][198]([200](ZZ$,1)):FL[178]FL[170]128
7020 SN$[178][202](ZZ$,2,([195](ZZ$)[171]1))
7030 ZZ$[178][199](FL)[170]SN$:SN$[178]ZZ$
7040 [153][199](14):[142]
8000 [153]"LOAD     (null)OULD YOU OR ANYONE ELSE LIKE "
8010 [153]"     TO READ THIS STORY NOW (Y/N)?"
8020 [161]Z$:[139]Z$[178]""[167]8020
8025 [139]Z$[178]"Y"[167][138]
8030 [139]Z$[179][177]"N"[167]8020
8040 :
8041 [153]"      (null)OULD YOU LIKE ANOTHER STORY"
8042 [153]"             PERHAPS (Y/N)?"
8050 [161]X$:[139]X$[178]""[167]8050
8060 [139]X$[178]"Y"[167][141]9500:[137]9000
8070 [139]X$[179][177]"N"[167]8050
8100 [158]64738
8200 :[128]:
9000 [139]DQ[178]2[167]DQ[178]0:[151]831,4:[141]9700:[137]8040
9005 [153]"STOPLOAD        (null)OADING:  (null)AIN (null)ENU 64 "
9010 [151]53281,1:[151]53280,6
9020 [143] *** BOOT SAMPLE ***
9030 :
9040 :
9050 [143] *** FIRST PROGRAM BOOTED ***
9060 :
9070 [153]"LOAD"[199](34)"MAIN MENU 64";[199](34)",8"
9080 :
9090 :
9100 [153]"RUN"
9110 :
9120 [143] *** SET-UP KEYBOARD BUFFER ***
9130 :
9140 [153]"":[129]J[178]0[164]4:[151]631[170]J,13:[130]J:[151]198,5
9150 [128]
9500 [151]831,8:[141]10500:[139]DQ[178]2[167][142]
9505 [153]"LOAD    RIGHT$NSERT THE ATNDVENTURE (null)ERIES DISK"
9510 [153]"          INTO THE DISK DRIVE."
9520 [141]356:[142]
9700 [153]"LOAD     (null)PPS! (null)HE DEVICE IS NOT READY! "
9710 [141]356:[142]
10000 [129]K[178]0[164]24
10010 [135] ZZ:[151]828[170]K,ZZ
10020 [130] K:[142]
10500 [158](828):[139][194](2)[178]5[167]DQ[178]2
10510 [142]